Procedure TForm1.Button1Click(Sender: TObject);
Const
QUERY = 'Select * From Win32_Process';
COMPUTER = 'SERVER-AT12K';
Var
Services : SWbemServices;
ObjectSet : ISWbemObjectSet;
Enum : IEnumVariant;
tempObj : OleVariant;
SObject : ISWbemObject;
Value : Cardinal;
Begin
Services := Locator.ConnectServer(COMPUTER, 'root\cimv2', '', '', '',
'', 0, nil);
ObjectSet := Services.ExecQuery(QUERY, 'WQL',
wbemFlagReturnImmediately, nil);
Enum := (ObjectSet._NewEnum) As IEnumVariant;
While (Enum.Next(1, TempObj, Value) = S_OK) Do
Begin
SObject := IUnknown(TempObj) As SWBemObject;
Memo1.Lines.Add(SObject.GetObjectText_(0))
End;
End;
|